home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / examples / chess.ps < prev    next >
Text File  |  1994-07-28  |  3KB  |  102 lines
  1. %!PS-Adobe-2.1
  2. %%% HOW TO USE:  from Unix, "cat Cheq Example | lpr -Pprintername "
  3. %%Title: Cheq.cheqtxtx
  4. %%Creator: Glenn Reid and still.ps (V 1.0d release 10 edit 08)
  5. %%BoundingBox: (atend)
  6. %%Pages: (atend)
  7. %%DocumentProcSets: Adobe_distill 0.95
  8. %%EndComments
  9. %%BeginProcSet: Adobe_distill 0.95
  10. /PROLOGUE 30 40 add dict def
  11.  % 30 procedure entries + room for 40 cached font dictionaries
  12.  PROLOGUE begin
  13.  /clip { } def    % causes problems. remove if "clip" is needed
  14.  /bdef { bind def } bind def    /ldef { load def } bdef
  15.  /T { moveto show } bdef    /A { moveto ashow } bdef
  16.  /W { moveto widthshow } bdef    /AW { moveto awidthshow } bdef
  17.  /f /fill ldef            /R { { rlineto } repeat } bdef
  18.  /r /rlineto ldef        /L { { lineto } repeat } bdef
  19.  /m /moveto ldef        /l { moveto lineto stroke } bdef
  20.  /x { 0 rlineto } bdef        /y { 0 exch rlineto } bdef
  21.  /c /curveto ldef        /cp /closepath ldef
  22.  /s /stroke ldef        /w /setlinewidth ldef
  23.  /g /setgray ldef        /j /setlinejoin ldef
  24.  /d /setdash ldef        /F /setfont ldef
  25.  /C /setcmykcolor where { /setcmykcolor get }{ %ifelse
  26.    { %def
  27.      1 sub 3 { 3 index add neg dup 0 lt { pop 0 } if 3 1 roll } repeat
  28.      setrgbcolor
  29.    } bind
  30.  } ifelse def
  31.  /MF { findfont exch makefont setfont } bdef
  32.  /DF { findfont exch scalefont setfont currentfont def } bdef
  33.  /BEGINPAGE { pop /pagesave save def } bdef
  34.  /ENDPAGE { pop pagesave restore showpage } def
  35.  /REMAP { %def
  36.    FontDirectory 2 index known { pop pop pop } { %ifelse
  37.      findfont dup length dict begin
  38.        { 1 index /FID ne {def}{pop pop} ifelse } forall
  39.        exch dup length 0 gt { /Encoding exch def }{ pop } ifelse
  40.      currentdict end definefont pop
  41.    } ifelse
  42.  } bdef
  43.  /RECODE { %def
  44.     3 -1 roll 1 index findfont /Encoding get 256 array copy exch
  45.     0 exch { %forall
  46.      dup type/nametype eq
  47.        { 3 {2 index} repeat put pop 1 add }{ exch pop }ifelse
  48.     } forall pop 3 1 roll REMAP
  49.  } bdef
  50.  end %PROLOGUE
  51. %%EndProcSet: Adobe_distill 0.95
  52. %%EndProlog
  53. %%BeginSetup
  54. PROLOGUE begin
  55.  
  56. %%EndSetup
  57. %%Page: 1 1
  58. %%PageFonts: (atend)
  59. %%PageBoundingBox: (atend)
  60.  
  61.  
  62. %%%%%% Following line added by Aladdin Enterprises:
  63. %%%%%%   load the font explicitly so it doesn't have to be in Fontmap.
  64. (cheq.ps) run
  65.  
  66.  
  67. 1 BEGINPAGE
  68. 1 1 1 0 C
  69. /F1 12 /Times-Roman DF
  70. (Cheq \(gift of Adobe Systems\) "Chequed Board")
  71. 72 756 T
  72. (p. 1)
  73. 558 756 T
  74. /F2 30 /Cheq DF
  75.  
  76.  
  77. %%%%%% Following line added by Aladdin Enterprises:
  78. %%%%%%   scale up and relocate the image.
  79. -140 -800 translate 2 2 scale
  80.  
  81.  
  82. ( ________) 72 714 T
  83. (/R\366B\316K\365N\345\\) 72 684 T
  84. (/\270P\270P\270P\270P\\) 72 654 T
  85. (/ x x x x\\) 72 624 T
  86. (/x xQ\360 x \\) 72 594 T
  87. (/ x x x x\\) 72 564 T
  88. (/x x \317kx \\) 72 534 T
  89. (/p\271p\271p\271p\271\\) 72 504 T
  90. (/\250n\272q\373b\265r\\) 72 474 T    %%%%%% 277??
  91. ( --------) 72 444 T
  92. 2 ENDPAGE
  93. %%PageTrailer
  94. %%PageFonts: Times-Roman Cheq 
  95. %%PageBoundingBox: 20 20 576 756 
  96. %%Trailer
  97. end %PROLOGUE
  98. %%Pages: 1 
  99. %%BoundingBox: 20 20 576 756 
  100. %%DocumentFonts: Times-Roman Cheq 
  101. %%EOF
  102.